Stone Design/Stone Design.iso/Stone_Friends/Wave/WavesWorld/Examples/Rocky/dexter4.wwModel/noiseTest.tcl

Text File | 1995-03-22 | 129 b | 3 lines

set u 0
for {set i 0} {$i < 1000} {incr i} {  puts "noise($u, $u, $u) == [expr {noise($u, $u, $u)}]"; set u [expr {$u + 0.001}]}